home *** CD-ROM | disk | FTP | other *** search
/ AMIGA-CD 2 / Amiga-CD - Volume 2.iso / gepackte_disketten / 1994 / 08_94_5.dms / 08_94_5.adf / term-4.0-Source.lha / DatePanel.c < prev    next >
C/C++ Source or Header  |  1994-06-26  |  4KB  |  201 lines
  1. /*
  2. **    DatePanel.c
  3. **
  4. **    Editing panel for date selection
  5. **
  6. **    Copyright © 1990-1994 by Olaf `Olsen' Barthel
  7. **        All Rights Reserved
  8. */
  9.  
  10. #include "termGlobal.h"
  11.  
  12. enum    {    GAD_MONTH=1,GAD_DAY,GAD_COMMENT,GAD_USE,GAD_CANCEL };
  13.  
  14. STATIC STRPTR __saveds
  15. ShowMonth(struct Gadget *SomeGadget,WORD Level)
  16. {
  17.     return(LocaleString(Level + MSG_DATEPANEL_JANUARY_TXT));
  18. }
  19.  
  20. BYTE __regargs
  21. DatePanel(struct TimeDateNode *Node)
  22. {
  23.     STATIC BYTE MaxDays[12] = { 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 };
  24.  
  25.     struct LayoutHandle    *Handle;
  26.     struct TimeDateNode     LocalNode;
  27.     BYTE             Result = FALSE;
  28.  
  29.     LocalNode = *Node;
  30.  
  31.     if(Handle = LT_CreateHandleTags(Window -> WScreen,
  32.         LH_LocaleHook,    &LocaleHook,
  33.     TAG_DONE))
  34.     {
  35.         struct Window *Window;
  36.  
  37.         LT_New(Handle,
  38.             LA_Type,    VERTICAL_KIND,
  39.         TAG_DONE);
  40.         {
  41.             LT_New(Handle,
  42.                 LA_Type,    VERTICAL_KIND,
  43.                 LA_LabelID,    MSG_V36_0032,
  44.             TAG_DONE);
  45.             {
  46.                 LT_New(Handle,
  47.                     LA_Type,        SLIDER_KIND,
  48.                     LA_LabelID,        MSG_DATEPANEL_MONTH_GAD,
  49.                     LA_HighLabel,        TRUE,
  50.                     LA_BYTE,        &LocalNode . Header . Month,
  51.                     LA_ID,            GAD_MONTH,
  52.                     LA_Chars,        16,
  53.                     GTSL_Max,        11,
  54.                     GTSL_LevelFormat,    "%s",
  55.                     GTSL_DispFunc,        ShowMonth,
  56.                     LASL_FullCheck,        TRUE,
  57.                 TAG_DONE);
  58.  
  59.                 LT_New(Handle,
  60.                     LA_Type,        SLIDER_KIND,
  61.                     LA_LabelID,        MSG_DATEPANEL_DAY_GAD,
  62.                     LA_HighLabel,        TRUE,
  63.                     LA_BYTE,        &LocalNode . Header . Day,
  64.                     LA_ID,            GAD_DAY,
  65.                     GTSL_Min,        1,
  66.                     GTSL_Max,        MaxDays[LocalNode . Header . Month],
  67.                     LASL_FullCheck,        TRUE,
  68.                 TAG_DONE);
  69.  
  70.                 LT_New(Handle,
  71.                     LA_Type,    XBAR_KIND,
  72.                 TAG_DONE);
  73.  
  74.                 LT_New(Handle,
  75.                     LA_Type,    STRING_KIND,
  76.                     LA_LabelID,    MSG_GLOBAL_COMMENT_GAD,
  77.                     LA_STRPTR,    LocalNode . Header . Comment,
  78.                     GTST_MaxChars,    19,
  79.                 TAG_DONE);
  80.  
  81.                 LT_EndGroup(Handle);
  82.             }
  83.  
  84.             LT_New(Handle,
  85.                 LA_Type,VERTICAL_KIND,
  86.             TAG_DONE);
  87.             {
  88.                 LT_New(Handle,
  89.                     LA_Type,    XBAR_KIND,
  90.                     LAXB_FullSize,    TRUE,
  91.                 TAG_DONE);
  92.  
  93.                 LT_EndGroup(Handle);
  94.             }
  95.  
  96.             LT_New(Handle,LA_Type,HORIZONTAL_KIND,
  97.                 LAGR_SameSize,    TRUE,
  98.                 LAGR_Spread,    TRUE,
  99.             TAG_DONE);
  100.             {
  101.                 LT_New(Handle,
  102.                     LA_Type,    BUTTON_KIND,
  103.                     LA_LabelID,    MSG_GLOBAL_USE_GAD,
  104.                     LA_ID,        GAD_USE,
  105.                     LABT_ReturnKey,    TRUE,
  106.                     LABT_ExtraFat,    TRUE,
  107.                 TAG_DONE);
  108.  
  109.                 LT_New(Handle,
  110.                     LA_Type,    BUTTON_KIND,
  111.                     LA_LabelID,    MSG_GLOBAL_CANCEL_GAD,
  112.                     LA_ID,        GAD_CANCEL,
  113.                     LABT_EscKey,    TRUE,
  114.                     LABT_ExtraFat,    TRUE,
  115.                 TAG_DONE);
  116.  
  117.                 LT_EndGroup(Handle);
  118.             }
  119.  
  120.             LT_EndGroup(Handle);
  121.         }
  122.  
  123.         if(Window = LT_Layout(Handle,LocaleString(MSG_DATEPANEL_DATE_SETTINGS_TXT),NULL,0,0,IDCMP_CLOSEWINDOW,0,
  124.             LAWN_HelpHook,        &GuideHook,
  125.             WA_DepthGadget,        TRUE,
  126.             WA_CloseGadget,        TRUE,
  127.             WA_DragBar,        TRUE,
  128.             WA_RMBTrap,        TRUE,
  129.             WA_Activate,        TRUE,
  130.         TAG_DONE))
  131.         {
  132.             struct IntuiMessage    *Message;
  133.             BOOLEAN             Done = FALSE;
  134.             ULONG             MsgClass,
  135.                          MsgQualifier;
  136.             UWORD             MsgCode;
  137.             struct Gadget        *MsgGadget;
  138.  
  139.             GuideContext(CONTEXT_DATE);
  140.  
  141.             LT_ShowWindow(Handle,TRUE);
  142.  
  143.             PushWindow(Window);
  144.  
  145.             do
  146.             {
  147.                 if(Wait(PORTMASK(Window -> UserPort) | SIG_BREAK) & SIG_BREAK)
  148.                     break;
  149.  
  150.                 while(Message = (struct IntuiMessage *)GT_GetIMsg(Window -> UserPort))
  151.                 {
  152.                     MsgClass    = Message -> Class;
  153.                     MsgQualifier    = Message -> Qualifier;
  154.                     MsgCode        = Message -> Code;
  155.                     MsgGadget    = (struct Gadget *)Message -> IAddress;
  156.  
  157.                     GT_ReplyIMsg(Message);
  158.  
  159.                     LT_HandleInput(Handle,MsgQualifier,&MsgClass,&MsgCode,&MsgGadget);
  160.  
  161.                     if(MsgClass == IDCMP_CLOSEWINDOW)
  162.                         Done = TRUE;
  163.  
  164.                     if(MsgClass == IDCMP_MOUSEMOVE && MsgGadget -> GadgetID == GAD_MONTH)
  165.                     {
  166.                         LT_SetAttributes(Handle,GAD_DAY,
  167.                             GTSL_Max,    MaxDays[LocalNode . Header . Month],
  168.                         TAG_DONE);
  169.                     }
  170.  
  171.                     if(MsgClass == IDCMP_GADGETUP)
  172.                     {
  173.                         switch(MsgGadget -> GadgetID)
  174.                         {
  175.                             case GAD_USE:
  176.  
  177.                                 *Node = LocalNode;
  178.  
  179.                                 Result = Done = TRUE;
  180.  
  181.                                 break;
  182.  
  183.                             case GAD_CANCEL:
  184.  
  185.                                 Done = TRUE;
  186.                                 break;
  187.                         }
  188.                     }
  189.                 }
  190.             }
  191.             while(!Done);
  192.  
  193.             PopWindow();
  194.         }
  195.  
  196.         LT_DeleteHandle(Handle);
  197.     }
  198.  
  199.     return(Result);
  200. }
  201.